﻿

Public Class ProgressControl

    Public Sub New()

        ' 此调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        ' 在 InitializeComponent() 调用之后添加任何初始化。

    End Sub

    Public Property StatusText() As String
        Get
            Return lblSearchState.Text
        End Get
        Set(ByVal value As String)
            lblSearchState.Text = value
        End Set
    End Property

    Public Property Value() As Integer
        Get
            Return pbSearch.Value
        End Get
        Set(ByVal value As Integer)
            pbSearch.Value = value
        End Set
    End Property

    Public Sub InitControl()
        Me.lblSearchState.Text = String.Empty
        Me.pbSearch.Value = 0
    End Sub

    Public Sub HideControl()
        Me.Visible = False
        Me.Enabled = False
    End Sub

    Public Sub ShowControl()
        Me.Enabled = True
        Me.Visible = True
    End Sub

End Class
